﻿Public Class Frm4Entradas_Nuevo_RMP


    Public Function cargarsocio() As Boolean
        'Objeto Roles
        Dim dato As New Socio
        Dim accion As New SocioDAO
        'Tabla temporal de roles
        dato.pIdtsocio = 2
        Dim tabla As DataTable
        tabla = accion.mostrar_entradas(dato)
        'Comprobar si hay roles
        If tabla Is Nothing Then
            Return False
        Else

            'Trabajar con el control combox
            With cbxRol
                'No se permite modificar
                .DataSource = accion.mostrar_entradas(dato)
                'Fuentes de dtao
                .DropDownStyle = ComboBoxStyle.DropDownList
                'Campo a mostrar
                .DisplayMember = "Nombre"
                'Clave principal
                .ValueMember = "ID_Socio"
                'No mostrar ningun rol
                .SelectedIndex = -1
            End With
            Return True
        End If
    End Function
    Public Function cargarbodega() As Boolean
        'Objeto Roles
        Dim accion As New BodegaDAO
        Dim dato As New Bodega
        dato.pIdTBodega = 1
        'Tabla temporal de roles
        Dim tabla As DataTable
        tabla = accion.mostrar_movimientos(dato)
        'Comprobar si hay roles
        If tabla Is Nothing Then
            Return False
        Else

            'Trabajar con el control combox
            With cbxBodega
                'No se permite modificar
                .DataSource = accion.mostrar_movimientos(dato)
                'Fuentes de dtao
                .DropDownStyle = ComboBoxStyle.DropDownList
                'Campo a mostrar
                .DisplayMember = "Descripcion_bodega"
                'Clave principal
                .ValueMember = "ID_Bodega"
                'No mostrar ningun rol
                .SelectedIndex = -1
            End With
            Return True
        End If
    End Function
    Public Sub cargarRegistros()
        Try
            Dim accion As New MovimientosDAO
            'Llenar tabla
            'lblIDMovimiento.Text = accion.mostrarUltimoRegistro
            Dim tabla As New DataTable
            tabla = accion.mostrarUltimoRegistro
            lblIDMovimiento.Text = registroUltimo
            ''Comprobar si hay datos
            'If Not tabla Is Nothing Then
            '    'Cargar datos en el grid
            '    'dgv1.DataSource = tabla
            '    'FormatosGrid.funciones.formatoGrid_Usuarios(DGV1, tabla)
            '    'Mostrar datos en los controles
            '    lblIDMovimiento.Text = tabla.Rows(0).Item(0).Value
            '    'DGV1.Rows(fila).Selected = True
            '    'DGV1.CurrentCell = DGV1.Rows(fila).Cells(1)
            'End If
        Catch ex As Exception
            MessageBox.Show(ex.Message, "Advertencia", MessageBoxButtons.OK,
                        MessageBoxIcon.Warning)
        End Try
    End Sub
    Public Sub cargarInventario(ByVal fila As Integer)
        Try
            Dim dato As New Inventario
            Dim accion As New InventarioDAO
            dato.pIDmovimiento = lblIDMovimiento.Text

            'Llenar tabla
            Dim tabla As New DataTable
            tabla = accion.mostrar_entradas(dato)
            'Comprobar si hay datos
            'If Not tabla Is Nothing Then
            'Cargar datos en el grid
            'DGV2.DataSource = tabla
            FormatosGrid.formatoGrid_Mostrar_Movimiento(DGV2, tabla)
            'Mostrar datos en los controles
            'lblIDSocio.Text = DGV1.Rows(fila).Cells(0).Value
            'txtCodigo.Text = DGV1.Rows(fila).Cells(1).Value
            'txtNombre.Text = DGV1.Rows(fila).Cells(2).Value
            'txtDireccion.Text = DGV1.Rows(fila).Cells(3).Value
            'txtDocumento.Text = DGV1.Rows(fila).Cells(4).Value
            'txtTelefono.Text = DGV1.Rows(fila).Cells(5).Value
            'txtEmail.Text = DGV1.Rows(fila).Cells(6).Value
            'txtContacto.Text = DGV1.Rows(fila).Cells(7).Value
            'lblTipo.Text = DGV1.Rows(fila).Cells(8).Value
            'lblIdTSocio.Text = DGV1.Rows(fila).Cells(9).Value
            ''Seleccionar toda la fila
            'DGV1.Rows(fila).Selected = True
            'DGV1.CurrentCell = DGV1.Rows(fila).Cells(1)
            'End If
        Catch ex As Exception
            MessageBox.Show(ex.Message, "Advertencia", MessageBoxButtons.OK,
                        MessageBoxIcon.Warning)
        End Try
    End Sub


    Private Sub FrmEntradas_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        'txtFiltro.Enabled = False
        'txtNombre.Enabled = False
        'txtCantidad.Enabled = False
        'btnAgregarLinea.Enabled = False
        'btnBorrar.Enabled = False
        cargarsocio()
        cargarbodega()
        txtFecha.Text = DateTime.Now.ToString("dd/MM/yyyy")
    End Sub

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnGuardarEncabezado.Click
        'Clase Usuario
        Dim dato As New Movimientos
        'Clase Operaciones
        Dim accion As New MovimientosDAO
        'Asignar los datos
        dato.pFehca = txtFecha.Text
        dato.pSocio = cbxRol.SelectedValue
        dato.pBodega = cbxBodega.SelectedValue
        dato.pDescripcion = txtDescripcion.Text
        dato.pID_T_Documento = 1
        'Agregar registro
        If accion.agregar(dato) Then
            MessageBox.Show("Registro almacenado", "Guardar", MessageBoxButtons.OK, MessageBoxIcon.Information)
            cargarRegistros()

        Else
            MessageBox.Show("No se puede guardar el registro, contacte al administrador", "Advertencia", MessageBoxButtons.OK, MessageBoxIcon.Warning)
        End If



    End Sub



    Private Sub txtFiltro_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles txtFiltro.TextChanged
        Dim dato As New Items
        dato.pNC = txtFiltro.Text
        Dim accion As New MovimientosDAO
        'Llenar tabla
        Dim tabla As New DataTable
        tabla = accion.mostrarFiltro_Entradas(dato)
        'Comprobar si hay datos
        If txtFiltro.Text = Nothing Then
            DGV1.DataSource = ""
            lblIDProducto.Text = Nothing
            txtNombre.Text = Nothing
        Else

            If Not tabla Is Nothing Then
                'Cargar datos en el grid
                'DGV1.DataSource = tabla
                lblIDProducto.Text = tabla.Rows(0).Item(0)
                lblCosto.Text = lblIDProducto.Text
                txtNombre.Text = tabla.Rows(0).Item(1)
                FormatosGrid.formatoGrid_Filtrar_Productos(DGV1, tabla)

                'lblIDProducto.Text = DGV1.Rows(tabla).Cells(0).Value
                'txtNombre.Text = DGV1.Rows(fila).Cells(1).Value
                'txtTipo.Text = DGV1.Rows(fila).Cells(2).Value
                'lblIDTipo.Text = DGV1.Rows(fila).Cells(3).Value
                ''Seleccionar toda la fila
                'DGV1.Rows(fila).Selected = True
                'DGV1.CurrentCell = DGV1.Rows(fila).Cells(1)
            End If
        End If
    End Sub
    Private Sub dgv1_CurrentCellChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles DGV1.CurrentCellChanged
        Try
            If Not DGV1.CurrentCell Is Nothing Then
                With DGV1
                    lblIDProducto.Text = .Rows(.CurrentCell.RowIndex).Cells(0).Value
                    txtNombre.Text = .Rows(.CurrentCell.RowIndex).Cells(1).Value
                    lblCosto.Text = lblIDProducto.Text
                End With

            End If
        Catch ex As Exception
            MessageBox.Show(ex.Message, "Advertencia", MessageBoxButtons.OK,
              MessageBoxIcon.Warning)
        End Try
    End Sub
    'Public Function cargarRegistro() As Boolean
    '    Try
    '        Dim accion As New MovimientosDAO
    '        'Llenar tabla
    '        Dim tabla As New DataTable
    '        tabla = accion.mostrarRegistro
    '        'Comprobar si hay datos
    '        If Not tabla Is Nothing Then
    '            'Cargar datos en el grid
    '            'dgv1.DataSource = tabla
    '            'FormatosGrid.funciones.formatoGrid_Roles(DGV1, tabla)
    '            'Mostrar datos en los controles
    '            lblIDMovimiento = tabla.Rows(0).Item(0)
    '            'txtRol.Text = DGV1.Rows(fila).Cells(1).Value
    '            ''Seleccionar toda la fila
    '            'DGV1.Rows(fila).Selected = True
    '            'DGV1.CurrentCell = DGV1.Rows(fila).Cells(1)
    '        End If
    '    Catch ex As Exception
    '        MessageBox.Show(ex.Message, "Advertencia", MessageBoxButtons.OK,
    '                    MessageBoxIcon.Warning)
    '    End Try
    'End Function

    Private Sub btnAgregarLinea_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnAgregarLinea.Click
        'Clase Roles
        Dim dato As New Inventario
        'Clase Operaciones
        Dim accion As New InventarioDAO
        'Asignar los datos
        Dim buscar As New ItemsDAO
        Dim producto As New Items
        producto.pIdProd = lblCosto.Text
        'Llenar tabla
        'lblIDMovimiento.Text = accion.mostrarUltimoRegistro
        Dim tabla As New DataTable
        tabla = buscar.mostrar_costo(producto)
        Dim cantidad As Integer

        cantidad = registro_costo * txtCantidad.Text


        dato.pIngresos = txtCantidad.Text
        dato.pSalidas = 0
        dato.pCantidad = cantidad
        dato.pIDproducto = lblIDProducto.Text
        dato.pIDmovimiento = lblIDMovimiento.Text
        'Agregar registro
        If accion.agregar(dato) Then
            MessageBox.Show("Registro almacenado", "Guardar", MessageBoxButtons.OK, MessageBoxIcon.Information)
            cargarInventario(0)
            txtCantidad.Text = Nothing
        Else
            MessageBox.Show("No se puede guardar el registro, contacte al administrador", "Advertencia", MessageBoxButtons.OK, MessageBoxIcon.Warning)
        End If


    End Sub

    Private Sub Button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button5.Click
        MessageBox.Show("Registro Almacenado", "Guardado", MessageBoxButtons.OK, MessageBoxIcon.Information)
        FrmReporteEntradaMP.Show()
        Me.Close()
    End Sub

    Public Sub cargarCosto()
        Try
            Dim accion As New ItemsDAO
            Dim dato As New Items
            dato.pIdProd = lblCosto.Text
            'Llenar tabla
            'lblIDMovimiento.Text = accion.mostrarUltimoRegistro
            Dim tabla As New DataTable
            tabla = accion.mostrar_costo(dato)
            ''Comprobar si hay datos
            'If Not tabla Is Nothing Then
            '    'Cargar datos en el grid
            '    'dgv1.DataSource = tabla
            '    'FormatosGrid.funciones.formatoGrid_Usuarios(DGV1, tabla)
            '    'Mostrar datos en los controles
            '    lblIDMovimiento.Text = tabla.Rows(0).Item(0).Value
            '    'DGV1.Rows(fila).Selected = True
            '    'DGV1.CurrentCell = DGV1.Rows(fila).Cells(1)
            'End If
        Catch ex As Exception
            MessageBox.Show(ex.Message, "Advertencia", MessageBoxButtons.OK,
                        MessageBoxIcon.Warning)
        End Try
    End Sub

End Class